home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / mail / YAM22.lha / YAM2.2 / Rexx / KillDuplicates.yam < prev    next >
Text File  |  2000-04-19  |  778b  |  27 lines
  1. /* KillDuplicates.yam - Remove duplicate messages in current folder        */
  2. /* $VER: KillDuplicates.yam 1.0 (09.01.00) © 2000 by M.Beck <mbeck@yam.ch> */
  3. /* Requires YAM 2.1 or later                                               */
  4. /* Note: Switch off 'List like multiselect' in MUI/NListviews/Misc/Misc6   */
  5.  
  6. ADDRESS YAM
  7. OPTIONS RESULTS
  8. FOLDERINFO STEM fi.
  9. dups = 0
  10. LISTSELECT 'NONE'
  11. DO i=0 TO fi.total-1
  12.    MAILINFO STEM mi. i
  13.    mails.i.msgid = mi.msgid
  14.    mails.i.isdup = 0
  15.    DO j=0 TO i-1
  16.       IF mails.i.msgid = mails.j.msgid THEN mails.i.isdup = 1
  17.    END
  18.    IF mails.i.isdup = 1 THEN DO
  19.       dups = dups+1
  20.       LISTSELECT i
  21.    END
  22. END
  23. IF dups > 0 THEN DO
  24.    'Request BODY "'dups' duplicate(s) found" GADGETS "Delete|Keep"'
  25.    IF RESULT=1 THEN MAILDELETE FORCE
  26. END
  27.